home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 September & October / Amiga-CD 1996 #9-10.iso / aminet / 7-96 / lha-archive / aspell.lha / AlphaSpell / RemoveAS5 < prev    next >
Text File  |  1996-05-01  |  3KB  |  119 lines
  1. ; Remove AlphaSpell V
  2.  
  3. (transcript "Removing AlphaSpell V")
  4. (welcome "This script will remove AlphaSpell V from your system.")
  5.  
  6. (set #prog "C:AlphaSpell")
  7. (if (not (exists #prog (noreq)))
  8.     (set #prog
  9.         (askfile
  10.             (prompt "Where is AlphaSpell V?")
  11.             (help @askfile-help)
  12.             (default "C:")
  13.         )
  14.     )
  15. )
  16. (delete #prog
  17.     (prompt "Deleting AlphaSpell")
  18.     (help @delete-help)
  19.     (confirm)
  20. )
  21.  
  22. (if (exists "ENV:DDIR")
  23.     (
  24.         (set #def (getenv "DDIR"))
  25.         (delete "ENVARC:DDIR")
  26.         (delete "ENV:DDIR")
  27.         (delete "ENVARC:Dict")
  28.         (delete "ENV:Dict")
  29.         (delete "ENVARC:UDict")
  30.         (delete "ENV:UDict")
  31.     )
  32.     (set #def "Work:AlphaSpell/Dictionaries")
  33. )
  34. (set #dir
  35.     (askdir
  36.         (prompt "Where are your dictionaries?")
  37.         (help @askdir-help)
  38.         (default #def)
  39.     )
  40. )
  41. (foreach #dir "#?"
  42.     (delete @each-name
  43.         (prompt "Deleting " @each-name)
  44.         (help @delete-help)
  45.         (confirm)
  46.     )
  47. )
  48.  
  49. (set #doc "Data:Docs/AlphaSpell.guide")
  50. (if (not (exists #doc (noreq)))
  51.     (set #doc
  52.         (askfile
  53.             (prompt "Where is the documentation for AlphaSpell V?")
  54.             (help @askfile-help)
  55.             (default #doc)
  56.         )
  57.     )
  58. )
  59. (delete #doc
  60.     (prompt "Deleting AlphaSpell V Documentation")
  61.     (help @delete-help)
  62.     (confirm)
  63. )
  64.  
  65. (if (exists "ENV:ASpellGUI")
  66.     (
  67.         (delete
  68.             (prompt "Deleting ASpell.gui")
  69.             (help @delete-help)
  70.             (getenv "ASpellGUI")
  71.             (confirm)
  72.         )
  73.  
  74.         (delete "ENVARC:ASpellGUI"
  75.             (prompt "Deleting ENVARC:ASpellGUI")
  76.             (help @delete-help)
  77.             (confirm)
  78.         )
  79.         (delete "ENV:ASpellGUI"
  80.             (prompt "Deleting ENV:ASpellGUI")
  81.             (help @delete-help)
  82.             (confirm)
  83.         )
  84.         (set #rexx
  85.             (askdir
  86.                 (prompt "Where are your AlphaSpell GUI scripts?")
  87.                 (help @askdir-help)
  88.                 (default "REXX:")
  89.             )
  90.         )
  91.         (foreach #rexx "ASpell.#?"
  92.             (delete @each-name
  93.                 (prompt "Deleting " @each-name)
  94.                 (help @delete-help)
  95.                 (confirm)
  96.             )
  97.         )
  98.         (set #doc "Data:Docs/ASpellGUI.guide")
  99.         (if (not (exists #doc (noreq)))
  100.             (set #doc
  101.                 (askfile
  102.                     (prompt "Where is the documentation for the AlphaSpell GUI?")
  103.                     (help @askfile-help)
  104.                     (default #doc)
  105.                 )
  106.             )
  107.         )
  108.         (delete #doc
  109.             (prompt "Deleting AlphaSpell GUI Documentation")
  110.             (help @delete-help)
  111.             (confirm)
  112.         )
  113.  
  114.     )
  115. )
  116.  
  117. (message "The removal of AlphaSpell V is finished.")
  118. (exit (quiet))
  119.